home *** CD-ROM | disk | FTP | other *** search
/ Cisco Networkers 1998 / Cisco Networkers 1998.iso / pc / os2 / install.cmd < prev    next >
Encoding:
Text File  |  1998-03-03  |  3.4 KB  |  82 lines
  1. /**********************INSTALL ELOQUENT in OS/2************************/
  2. arg TESTMODE
  3. '@echo off'
  4. /*Load up the REXX code*/
  5. call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs'
  6. call SysLoadFuncs
  7.  
  8. /*Establish the fully qualified file used for communication*/
  9. COM_FILE='c:\eloquent.txt'
  10.  
  11. /*Ensure the ELOQUENT.TXT file does NOT exist, if NOT in testmode*/
  12. if TESTMODE='' then rc=SysFileDelete(COM_FILE)
  13.  
  14. /*Establish where I am*/
  15. parse upper source iam
  16. SOURCE_DRIVE=substr(iam,pos(':',iam) -1,2) /*Learn where I am*/
  17. if pos('\',iam) = lastpos('\',iam) then MY_DIR='\' ; else MY_DIR=substr(iam,pos('\',iam),lastpos('\',iam) - pos('\',iam))'\'
  18.  
  19. /*Establish where all other OS2 install files are.  If in the same directory
  20.   as this CMD file, then SOURCE_DIR=MY_DIR.  Otherwise, set SOURCE_DIR to
  21.   the OS2 directory on the CD.  For example, SOURCE_DIR='\OS2\' */
  22. SOURCE_DIR=MY_DIR
  23.  
  24. /*Run the Eloquent SETUP program if NOT in testmode*/
  25. if TESTMODE='' then 'call 'SOURCE_DRIVE'\setup.exe -os2'
  26.  
  27. /*Ensure the communication file now exists and contains a valid path*/
  28. rc=SysFileTree(COM_FILE,'X','FO')
  29. if X.0=0 then exit /*The file was not created, exit the install*/
  30. z=stream(COM_FILE,'C','OPEN READ')
  31. INLINE = linein(COM_FILE)
  32. if substr(INLINE,1,1)<>'[' then exit /*First line not correct*/
  33. INLINE = linein(COM_FILE)
  34. if substr(INLINE,4,1)<>'=' then exit /*Second line not correct*/
  35. z=stream(COM_FILE,'C','CLOSE')
  36.  
  37. /*The communication file is no longer needed.  Delete it if NOT in testmode.*/
  38. if TESTMODE='' then rc=SysFileDelete(COM_FILE)
  39.  
  40. /*Establish the base ELOQUENT path*/
  41. if length(INLINE)=7 then ELOQ_PTH=substr(INLINE,5) ; else ELOQ_PTH=substr(INLINE,5)'\'
  42.  
  43. /*Create an OS2 specific directory under the eloquent directory*/
  44. ELOQOS2_PTH=ELOQ_PTH'ELOQOS2'
  45. rc=SysMkDir(ELOQOS2_PTH)
  46. if rc<>0 & rc<>5 then do /*Could not create the OS/2 directory*/
  47.   'cls'
  48.   say ' '
  49.   say ' '
  50.   say 'Unable to create the OS/2 specific directory.'
  51.   say 'The installation cannot continue.'
  52.   exit
  53. end
  54.  
  55. /*Copy the required OS/2 files to the eloquent OS/2 directory*/
  56. 'copy 'SOURCE_DRIVE||SOURCE_DIR'os2read.me 'ELOQOS2_PTH'>NUL'
  57. 'copy 'SOURCE_DRIVE||SOURCE_DIR'eloqdel.cmd 'ELOQOS2_PTH'>NUL'
  58. 'copy 'SOURCE_DRIVE||SOURCE_DIR'pmmsgbox.exe 'ELOQOS2_PTH'>NUL'
  59.  
  60. /*Add the folder to the desktop (it might already be there)*/
  61. rc=SysCreateObject('WPFolder','Eloquent','<WP_DESKTOP>','OBJECTID=<ELOQUENT_FLDR>')
  62. rc=SysSetObjectData('<ELOQUENT_FLDR>','ALWAYSSORT=YES')
  63.  
  64. /*Add the module delete icon to the folder*/
  65. SETUP='OBJECTID=<ELOQUENT_DEL>;PROGTYPE=PM;EXENAME='ELOQOS2_PTH'\eloqdel.cmd;ICONFILE='SOURCE_DRIVE||SOURCE_DIR'eloqdel.ico;PARAMETERS='ELOQ_PTH
  66. rc=SysCreateObject('WPProgram','Eloquent^Delete','<ELOQUENT_FLDR>',SETUP,'R')
  67.  
  68. /*Add the OS/2 read.me icon to the folder*/
  69. SETUP='OBJECTID=<ELOQ_OS2_READ>;PROGTYPE=PM;EXENAME=E.EXE;ICONFILE='SOURCE_DRIVE||SOURCE_DIR'os2read.ico;PARAMETERS='ELOQOS2_PTH'\os2read.me'
  70. rc=SysCreateObject('WPProgram','Read Me','<ELOQUENT_FLDR>',SETUP,'R')
  71.  
  72. /*Add the Eloquent program to the folder*/
  73. setup='OBJECTID=<ELOQUENT_PROG>;EXENAME='ElOQ_PTH'PLAYER16\ELOQUENT.EXE;PROGTYPE=PROG_31_ENH;SET IDLE_SENSITIVITY=100;SET DPMI_MEMORY_LIMIT=64'
  74. rc=SysCreateObject('WPProgram','Eloquent','<ELOQUENT_FLDR>',setup,'R')
  75.  
  76. 'cls'
  77. say ' '
  78. say ' '
  79. say 'Installation complete.  Open the Eloquent folder and either'
  80. say 'double-click the Read Me icon for more information, or'
  81. say 'double-click the Eloquent icon to start the program.'
  82.